home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disk User Volume 1 #2 / Commodore_Disk_User_Vol.1_2_1988_-.d64 / basic scroll (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  354b  |  14 lines
  1. 10 ifa=0thena=1:load"ballch*",8,1
  2. 20 ifa=1thena=2:load"ballsc*",8,1
  3. 30 ifa=2thena=3:load"ballba*",8,1
  4. 40 diml(26),r(25):l(1)=1024
  5. 50 poke53272,(peek(53272)and240)or2
  6. 60 poke53270,peek(53270)or16
  7. 70 poke53280,6:poke53281,14:poke53282,9:poke53283,8
  8. 80 fora=1to25:r(a)=l(a)+39:l(a+1)=r(a)+1:next
  9. 90 forz=1to39
  10. 100 forb=0to39
  11. 110 for c=1 to 25:pokel(c)+b,peek(l(c)+b+1):nextc,b
  12. 120 for a=1 to 25:poker(a),peek(l(a)):nexta,z
  13. 130 goto80
  14.